home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MusicLib.cpt / Music Library / background_38941.txt < prev    next >
Text File  |  1988-03-27  |  4KB  |  200 lines
  1. -- background: 38941 from stack: in
  2. -- bmap block id: 20785
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=121 top=97 right=115 bottom=200
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: LPs
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=121 top=121 right=139 bottom=200
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: F5s
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0002
  39. -- rect: left=121 top=145 right=163 bottom=200
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: CDs
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: A000
  53. -- rect: left=127 top=228 right=280 bottom=190
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 32462 / 32462
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: New Count
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set lockScreen to true
  65.   put 0 into LPcount
  66.   put 0 into F5count
  67.   put 0 into CDcount
  68.   put 0 into CScount
  69.   set cursor to 4
  70.   repeat with x = 2 to number of cards
  71.     put "Processing card" && x
  72.     go to next card
  73.     get first word of field "Medium"
  74.     if it is "LP" then add 1 to LPcount
  75.     else if it is "45" then add 1 to F5count
  76.     else if it is "CD" then add 1 to CDcount
  77.     else add 1 to CScount
  78.   end repeat
  79.   go to first card
  80.   put LPcount into field LPs
  81.   put F5count into field F5s
  82.   put CDcount into field CDs
  83.   put CScount into field Cas
  84.   put LPcount + F5count + CDcount + CScount into field "Total"
  85.   set lockscreen to false
  86.   hide message
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 5 (field)
  92. -- low flags: 01
  93. -- high flags: 0002
  94. -- rect: left=121 top=169 right=187 bottom=200
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Cas
  103.  
  104.  
  105. -- part 7 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=477 top=308 right=335 bottom=503
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 1012 / 1012
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Return
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect iris close
  120.   pop card
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 8 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=440 top=310 right=334 bottom=465
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1013 / 1013
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Next
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   visual effect scroll left
  140.   go to next card
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 10 (field)
  146. -- low flags: 01
  147. -- high flags: 0002
  148. -- rect: left=121 top=193 right=211 bottom=200
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Total
  157.  
  158.  
  159. -- part 11 (button)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=12 top=290 right=335 bottom=52
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 20098 / 20098
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Home
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   visual effect iris close
  174.   go Home
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 12 (button)
  180. -- low flags: 00
  181. -- high flags: 2000
  182. -- rect: left=61 top=290 right=335 bottom=98
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 2478 / 2478
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: About
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   hide card field "About"
  194. end mouseUp
  195.  
  196. on mouseDown
  197.   show card field "About"
  198. end mouseDown
  199.  
  200.